module molecule
use prec
implicit none
   !----------------------------------------------------------------------------
   integer :: natom, nbond = 0, nangle = 0, ndihed = 0, neighmax = 4
   integer :: nbondtype = 0, nangletype = 0, ndihedtype = 0, natomtype = 0
   integer, allocatable :: neigh(:,:)
   integer, allocatable :: types(:), bonds(:,:), angles(:,:), diheds(:,:)
   integer, allocatable :: typeid(:), bondid(:), angleid(:), dihedid(:)
   real(q), allocatable :: molpos(:,:), chg(:)
   character(len=4 ), allocatable :: element(:),  typename(:)
   character(len=4 ), allocatable :: bondname(:,:), anglename(:,:), dihedname(:,:)
   character(len=40), allocatable :: charlist(:)
   character(len=40)              :: charflag, molname
   !----------------------------------------------------------------------------
end module
